home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / allfil.zip / MONITOR.LIB < prev    next >
Text File  |  1984-12-02  |  700b  |  22 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.}
  4.  
  5.   var
  6.     ScreenSeg : integer;
  7.     color     : boolean;
  8.   {oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}
  9.   procedure CheckColor;
  10.   begin
  11.     if (Mem[0000:1040] and 48) <> 48 then
  12.       begin
  13.         ScreenSeg := $B800;
  14.         color     := true;
  15.       end
  16.     else
  17.       begin
  18.         ScreenSeg := $B000;
  19.         color     := false;
  20.       end;
  21.     end;
  22.   {oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}